home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok38.lha / CoCo / Test.obn < prev   
Encoding:
Text File  |  1993-08-16  |  155 b   |  14 lines
  1. IMPLEMENTATION Test;
  2. BEGIN
  3.   IF x = 2 THEN
  4.     a := 1 + 2 * 3;
  5.   ELSIF x = 3 THEN
  6.     b := 1 * 2 + 3;
  7.   ELSE
  8.     c := 4;
  9.   END ;
  10.   x := 2 * 3;
  11. END Test.
  12.  
  13.  
  14.